home *** CD-ROM | disk | FTP | other *** search
/ How Many Bugs in a Box / How Many Bugs in a Box.cdr / start.dir / 00002_Script_2 < prev    next >
Text File  |  1995-02-26  |  893b  |  39 lines
  1. on startmovie
  2.   set the searchCurrentFolder = 0
  3.   global fh
  4.   if the machineType = 256 then 
  5.     -- seek config.cfg file - FILEIO.DLL required
  6.     set file = fileio(mnew, "read","config.cfg")
  7.     if objectp(file) then
  8.       beep
  9.       beep
  10.       -- open config.cfg file on hd
  11.       set trang = word 1 of file(mreadline) 
  12.       set the searchPath = [the pathname,trang&":\bugs\"]
  13.       
  14.       -- grab anything else that may be here
  15.       file(mdispose)
  16.     else
  17.       beep
  18.       set the searchpath = [the pathname & "bugs\"]
  19.     end if
  20.     
  21.     exit
  22.     
  23.   else
  24.     
  25.     
  26.     set the searchpath = [the pathname&"bugs:", "How Many Bugs?:bugs:"]    
  27.     
  28.   end if
  29.   set the searchCurrentFolder = 0
  30.   if (not objectp(fhider)) then 
  31.     --openxlib("finderhider.xobj")
  32.     set fh = finderhider(mnew)
  33.   end if
  34.   
  35.   fh(mShowBorder,1)
  36.   fh(mupdateborder)
  37.   
  38.   
  39. end